﻿Imports Seguros.caserDataSet

Public Class frmNuevaPoliza
    Dim idCliente As String = Nothing
    Dim idCliente2 As String = Nothing
    Dim idPoliza As Integer = Nothing
    Dim tipoPol As String = Nothing
    Dim dsCaser As caserDataSet
    Dim pymecomercioRow As caserDataSet.pymecomercioRow = Nothing
    Dim autoRow As caserDataSet.autoRow = Nothing
    Dim hogarRow As caserDataSet.hogarRow = Nothing
    Dim polizaRow As caserDataSet.polizaRow = Nothing

    Private Sub cmbTipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTipo.SelectedIndexChanged

        If cmbTipo.SelectedItem IsNot Nothing Then
            Select Case cmbTipo.SelectedIndex

                Case 1
                    gbAutos.Visible = True
                    gbAutos.BringToFront()
                    gbPymeComercio.Visible = False
                    gbHogar.Visible = False


                Case 2
                    gbHogar.Visible = True
                    gbHogar.BringToFront()
                    gbAutos.SendToBack()
                    gbPymeComercio.SendToBack()
                    gbAutos.Visible = False
                    gbPymeComercio.Visible = False


                Case 11, 12
                    gbAutos.Visible = False
                    gbPymeComercio.BringToFront()
                    gbPymeComercio.Visible = True
                    gbHogar.Visible = False

                Case Else
                    gbAutos.Visible = False
                    gbPymeComercio.Visible = False
                    gbHogar.Visible = False




            End Select
        End If

    End Sub




    Private Sub frmNuevaPoliza_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dsCaser = New caserDataSet
        dtpFechaContratacion.Value = Date.Now

        cmbEstado.SelectedIndex = 0
        cmbFormaPago.SelectedIndex = 0
        cmbTipo.SelectedIndex = 0
        cmbTipoHogar.SelectedIndex = 0
        cmbTipoVivienda.SelectedIndex = 0
        cmbUso.SelectedIndex = 0
        txtConductor2.Text = "Seleccione Persona..."
        If (Me.Tag <> Nothing) Then
            Dim cadena As String
            cadena = Me.Tag.ToString()
            Dim nombre As String = cadena.Split(";")(2)
            Dim Apellido As String = cadena.Split(";")(3)
            Dim dni As String = cadena.Split(";")(4)
            idCliente = cadena.Split(";")(1)
            txtPersona.Text = nombre + " " + Apellido + " - " + dni
            Buscar.Visible = False
            Dim accion As String = cadena.Split(";")(0)
            If accion = "M" Then
                cmbTipo.Enabled = False
                btnAceptar.Visible = False
                btnModificar.Visible = True
                Me.Text = "Modificar Póliza"
                idPoliza = cadena.Split(";")(5)
                tipoPol = cadena.Split(";")(6)
                Dim sError As String = ""
                Select Case tipoPol
                    Case "A"
                        sError = CargarTabla(dsCaser._auto)
                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                        autoRow = CType(dsCaser._auto.Select("id=" & idPoliza)(0), caserDataSet.autoRow)
                        cmbTipo.SelectedIndex = 1
                        dtpFechaPrimeraMat.Value = autoRow.fechaprimeramatr
                        txtCombustible.Text = autoRow.combustible
                        txtMarca.Text = autoRow.marca
                        txtModelo.Text = autoRow.modelo
                        txtVersion.Text = autoRow.version
                        nudPotencia.Value = autoRow.potencia
                        txtMatricula.Text = autoRow.matricula
                        nudPuertas.Value = autoRow.puerta
                        txtColor.Text = autoRow.color
                        idCliente2 = autoRow.idSegundoConductor
                        txtCobertura.Text = autoRow.cobertura
                        txtNumeroPoliza.Text = autoRow.numpol
                        nudPrima.Value = autoRow.prima
                        cmbFormaPago.SelectedItem = autoRow.formapago
                        nudComisión.Value = autoRow.comision
                        chbCompetencia.Checked = autoRow.competencia
                        txtObservaciones.Text = autoRow.observaciones
                        txtCompania.Text = autoRow.compañia
                        cmbEstado.SelectedItem = autoRow.estado
                        txtCobertura.Text = autoRow.cobertura
                        dtpFechaContratacion.Value = autoRow.fechacontratacion
                        dtpFechaVencimiento.Value = autoRow.fechavec

                        sError = CargarTabla(dsCaser.personas)
                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If

                        If idCliente2 <> 0 Then
                            Dim conductor2 As caserDataSet.personasRow
                            conductor2 = dsCaser.personas.Select("id=" & idCliente2)(0)
                            nombre = conductor2.nombre
                            Apellido = conductor2.apellido
                            dni = conductor2.dni

                            txtConductor2.Text = nombre + " " + Apellido + " - " + dni
                        End If


                    Case "P"
                        sError = CargarTabla(dsCaser.poliza)
                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                        polizaRow = CType(dsCaser.poliza.Select("id=" & idPoliza)(0), caserDataSet.polizaRow)

                        cmbTipo.SelectedItem = polizaRow.tipo

                        txtNumeroPoliza.Text = polizaRow.numpol
                        nudPrima.Value = polizaRow.prima
                        cmbFormaPago.SelectedItem = polizaRow.formapago
                        nudComisión.Value = polizaRow.comision
                        chbCompetencia.Checked = polizaRow.competencia
                        txtObservaciones.Text = polizaRow.observaciones
                        txtCompania.Text = polizaRow.compañia
                        cmbEstado.SelectedItem = polizaRow.estado
                        txtCobertura.Text = polizaRow.cobertura
                        dtpFechaContratacion.Value = polizaRow.fechacontratacion
                        dtpFechaVencimiento.Value = polizaRow.fechavec




                    Case "C"
                        sError = CargarTabla(dsCaser.pymecomercio)
                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                        Dim pymecomercioRow = CType(dsCaser.pymecomercio.Select("id=" & idPoliza)(0), caserDataSet.pymecomercioRow)
                        If pymecomercioRow.pyme Then
                            cmbTipo.SelectedIndex = 11
                        Else
                            cmbTipo.SelectedIndex = 12
                        End If

                        txtActividad.Text = pymecomercioRow.actividad
                        txtContinente.Text = pymecomercioRow.continente
                        txtMoviliario.Text = pymecomercioRow.moviliario
                        txtVehiculoRep.Text = pymecomercioRow.vehreposo
                        txtExistencias.Text = pymecomercioRow.existencias
                        txtCp.Text = pymecomercioRow.cp
                        nudSuperficiePyme.Value = pymecomercioRow.superficie
                        txtEstructuras.Text = pymecomercioRow.tipoestructura
                        txtIncendios.Text = pymecomercioRow.medioscontraincendios
                        nudFacturacion.Value = pymecomercioRow.facturacion
                        txtNumeroPoliza.Text = pymecomercioRow.numpol
                        nudPrima.Value = pymecomercioRow.prima
                        cmbFormaPago.SelectedItem = pymecomercioRow.formapago
                        nudComisión.Value = pymecomercioRow.comision
                        chbCompetencia.Checked = pymecomercioRow.competencia
                        txtObservaciones.Text = pymecomercioRow.observaciones
                        txtCompania.Text = pymecomercioRow.compañia
                        cmbEstado.SelectedItem = pymecomercioRow.estado
                        txtCobertura.Text = pymecomercioRow.cobertura
                        dtpFechaContratacion.Value = pymecomercioRow.fechacontratacion
                        dtpFechaVencimiento.Value = pymecomercioRow.fechavec


                    Case "H"
                        sError = CargarTabla(dsCaser.hogar)
                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                        hogarRow = CType(dsCaser.hogar.Select("id=" & idPoliza)(0), caserDataSet.hogarRow)
                        cmbTipo.SelectedIndex = 2
                        cmbTipoVivienda.SelectedItem = hogarRow.tipovivienda
                        nudSuperficie.Value = hogarRow.superficie
                        chNucleoUrbano.Checked = hogarRow.urbana
                        txtAnoConstruccion.Text = hogarRow.añoconstrucion
                        cmbUso.SelectedItem = hogarRow.uso
                        txtPoblacion.Text = hogarRow.poblacion
                        chAlarma.Checked = hogarRow.alarma
                        chRejas.Checked = hogarRow.rejas
                        chPuertaBlind.Checked = hogarRow.puertablindada
                        cmbTipoHogar.SelectedItem = hogarRow.tiposeguro
                        txtNumeroPoliza.Text = hogarRow.numpol
                        nudPrima.Value = hogarRow.prima
                        cmbFormaPago.SelectedItem = hogarRow.formapago
                        nudComisión.Value = hogarRow.comision
                        chbCompetencia.Checked = hogarRow.competencia
                        txtObservaciones.Text = hogarRow.observaciones
                        txtAnoReforma.Text = hogarRow.añoreforma
                        txtCompania.Text = hogarRow.compañia
                        cmbEstado.SelectedItem = hogarRow.estado
                        txtCobertura.Text = hogarRow.cobertura
                        dtpFechaContratacion.Value = hogarRow.fechacontratacion
                        dtpFechaVencimiento.Value = hogarRow.fechavec


                End Select
            Else
                dtpFechaVencimiento.Value = dtpFechaContratacion.Value.AddYears(1)
            End If
        Else
            idPoliza = Nothing
            idCliente = Nothing
            idCliente2 = Nothing
            txtPersona.Text = "Seleccione Persona..."
        End If
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        If cmbTipo.SelectedItem IsNot Nothing Then
            Select Case cmbTipo.SelectedIndex

                Case 1
                    If ValidarDatos() Then

                        dsCaser._auto.AddautoRow(dtpFechaPrimeraMat.Value, txtCombustible.Text, txtMarca.Text, txtModelo.Text, txtVersion.Text, nudPotencia.Value, txtMatricula.Text, nudPuertas.Value, txtColor.Text, idCliente, idCliente2, txtCobertura.Text, txtNumeroPoliza.Text, nudPrima.Value, dtpFechaVencimiento.Value, cmbFormaPago.SelectedItem, nudComisión.Value, chbCompetencia.Checked, txtObservaciones.Text, txtCompania.Text, cmbEstado.SelectedItem, txtCobertura.Text, dtpFechaContratacion.Value)
                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser._auto)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de auto registrada..."
                            End If

                            Limpiar()
                        End If

                    End If
                Case 2

                    If ValidarDatos() Then

                        dsCaser.hogar.AddhogarRow(cmbTipoVivienda.SelectedItem, nudSuperficie.Value, chNucleoUrbano.Checked, txtAnoConstruccion.Text, cmbUso.SelectedItem, txtPoblacion.Text, chAlarma.Checked, chRejas.Checked, chPuertaBlind.Checked, cmbTipoHogar.SelectedItem, idCliente, txtNumeroPoliza.Text, nudPrima.Value, dtpFechaVencimiento.Value, cmbFormaPago.SelectedItem, nudComisión.Value, chbCompetencia.Checked, txtObservaciones.Text, txtAnoReforma.Text, txtCompania.Text, cmbEstado.SelectedItem, txtCobertura.Text, dtpFechaContratacion.Value)

                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.hogar)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de hogar registrada..."
                            End If
                            Limpiar()
                            End If

                    End If

                Case 11

                    If ValidarDatos() Then

                        dsCaser.pymecomercio.AddpymecomercioRow(txtActividad.Text, txtContinente.Text, txtMoviliario.Text, txtVehiculoRep.Text, txtExistencias.Text, txtCp.Text, nudSuperficiePyme.Value, txtEstructuras.Text, txtIncendios.Text, nudFacturacion.Value, txtNumeroPoliza.Text, nudPrima.Value, dtpFechaVencimiento.Value, cmbFormaPago.SelectedItem, nudComisión.Value, chbCompetencia.Checked, txtObservaciones.Text, idCliente, True, txtCompania.Text, cmbEstado.SelectedItem, txtCobertura.Text, dtpFechaContratacion.Value)
                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.pymecomercio)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de P.Y.M.E. registrada..."
                            End If
                            Limpiar()
                            End If

                    End If

                Case 12

                    If ValidarDatos() Then

                        dsCaser.pymecomercio.AddpymecomercioRow(txtActividad.Text, txtContinente.Text, txtMoviliario.Text, txtVehiculoRep.Text, txtExistencias.Text, txtCp.Text, nudSuperficiePyme.Value, txtEstructuras.Text, txtIncendios.Text, nudFacturacion.Value, txtNumeroPoliza.Text, nudPrima.Value, dtpFechaVencimiento.Value, cmbFormaPago.SelectedItem, nudComisión.Value, chbCompetencia.Checked, txtObservaciones.Text, idCliente, False, txtCompania.Text, cmbEstado.SelectedItem, txtCobertura.Text, dtpFechaContratacion.Value)
                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.pymecomercio)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de comercio registrada.."
                            End If
                            Limpiar()
                            End If

                    End If

                Case Else
                    If ValidarDatos() Then

                        dsCaser.poliza.AddpolizaRow(txtNumeroPoliza.Text, nudPrima.Value, dtpFechaVencimiento.Value, cmbFormaPago.SelectedItem, nudComisión.Value, chbCompetencia.Checked, cmbTipo.SelectedItem, txtObservaciones.Text, idCliente, txtCompania.Text, cmbEstado.SelectedItem, txtCobertura.Text, dtpFechaContratacion.Value)

                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.poliza)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza registrada.."
                            End If
                            Limpiar()
                            End If

                    End If

                    If Me.MdiParent Is Nothing Then
                        Me.Close()
                    End If


            End Select
            If Me.Tag IsNot Nothing Then
                Me.Close()
            End If
        End If
    End Sub

    Private Function ValidarDatos() As Boolean
        Dim bValido As Boolean = True
        Dim sError As String = ""
        If idCliente = Nothing Then
            bValido = False
            sError = "Debe seleccionar un cliente"
        End If

        If txtNumeroPoliza.Text = "" Or Not IsNumeric(txtNumeroPoliza.Text) Then
            bValido = False
            sError = "Debe introducir un número de póliza válido"
        End If


        If bValido = False Then
            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        Return bValido
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
        Dim formPersonas As frmPersonas
        formPersonas = New frmPersonas
        formPersonas.parentesco(False)
        formPersonas.ShowDialog()
        If (formPersonas.Tag <> Nothing) Then
            Dim cadena As String
            cadena = formPersonas.Tag.ToString()
            Dim nombre As String = cadena.Split(";")(1)
            Dim Apellido As String = cadena.Split(";")(2)
            Dim dni As String = cadena.Split(";")(3)
            idCliente = cadena.Split(";")(0)
            txtPersona.Text = nombre + " " + Apellido + " - " + dni
        Else
            idCliente = Nothing
            txtPersona.Text = "Seleccione Persona..."
        End If
    End Sub

    Private Sub Limpiar()
        txtActividad.Clear()
        txtAnoConstruccion.Clear()
        txtAnoReforma.Clear()
        txtCobertura.Clear()
        txtColor.Clear()
        txtCombustible.Clear()
        txtCompania.Clear()
        txtConductor2.Text = "Seleccione Persona..."
        txtContinente.Clear()
        txtCp.Clear()
        txtEstructuras.Clear()
        txtExistencias.Clear()
        txtIncendios.Clear()
        txtMarca.Clear()
        txtMatricula.Clear()
        txtMedidaRobos.Clear()
        txtModelo.Clear()
        txtMoviliario.Clear()
        txtNumeroPoliza.Clear()
        txtObservaciones.Clear()
        txtPersona.Text = "Seleccione Persona..."
        txtPoblacion.Clear()
        txtVehiculoRep.Clear()
        txtVersion.Clear()
        cmbEstado.SelectedIndex = 0
        cmbFormaPago.SelectedIndex = 0
        cmbTipo.SelectedIndex = 0
        cmbTipoHogar.SelectedIndex = 0
        cmbTipoVivienda.SelectedIndex = 0
        cmbUso.SelectedIndex = 0
        nudComisión.Value = 0
        nudFacturacion.Value = 0
        nudPotencia.Value = 0
        nudPrima.Value = 0
        nudPuertas.Value = 0
        nudSuperficie.Value = 0
        nudSuperficiePyme.Value = 0
        dtpFechaContratacion.Value = Date.Now
        dtpFechaVencimiento.Value = dtpFechaContratacion.Value.AddYears(1)


    End Sub


    Private Sub buscarConductor2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buscarConductor2.Click
        Dim formPersonas As frmPersonas
        formPersonas = New frmPersonas
        formPersonas.parentesco(False)
        formPersonas.ShowDialog()
        If (formPersonas.Tag <> Nothing) Then
            Dim cadena As String
            cadena = formPersonas.Tag.ToString()
            Dim nombre As String = cadena.Split(";")(1)
            Dim Apellido As String = cadena.Split(";")(2)
            Dim dni As String = cadena.Split(";")(3)
            idCliente2 = cadena.Split(";")(0)
            txtConductor2.Text = nombre + " " + Apellido + " - " + dni
        Else
            idCliente2 = Nothing
            txtConductor2.Text = "Seleccione Persona..."
        End If
    End Sub

    Private Sub cmbEstado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbEstado.SelectedIndexChanged

    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    Private Sub dtpFechaVencimiento_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpFechaVencimiento.ValueChanged

    End Sub

    Private Sub dtpFechaContratacion_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpFechaContratacion.ValueChanged
        dtpFechaVencimiento.Value = dtpFechaContratacion.Value.AddYears(1)

    End Sub

    Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
        If cmbTipo.SelectedItem IsNot Nothing Then
            Select Case cmbTipo.SelectedIndex

                Case 1
                    If ValidarDatos() Then

                        autoRow.fechaprimeramatr = dtpFechaPrimeraMat.Value
                        autoRow.combustible = txtCombustible.Text()
                        autoRow.marca = txtMarca.Text()
                        autoRow.modelo = txtModelo.Text()
                        autoRow.version = txtVersion.Text()
                        autoRow.potencia = nudPotencia.Value()
                        autoRow.matricula = txtMatricula.Text()
                        autoRow.puerta = nudPuertas.Value()
                        autoRow.color = txtColor.Text()
                        autoRow.idSegundoConductor = idCliente2
                        autoRow.cobertura = txtCobertura.Text()
                        autoRow.numpol = txtNumeroPoliza.Text()
                        autoRow.prima = nudPrima.Value()
                        autoRow.fechavec = dtpFechaVencimiento.Value()
                        autoRow.formapago = cmbFormaPago.SelectedItem()
                        autoRow.comision = nudComisión.Value()
                        autoRow.competencia = chbCompetencia.Checked()
                        autoRow.observaciones = txtObservaciones.Text()
                        autoRow.compañia = txtCompania.Text()
                        autoRow.estado = cmbEstado.SelectedItem()
                        autoRow.coberturasolicitada = txtCobertura.Text()
                        autoRow.fechacontratacion = dtpFechaContratacion.Value()


                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser._auto)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else

                            If Me.Tag IsNot Nothing Then
                                Me.Close()
                            End If
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de auto registrada..."
                            End If

                            Limpiar()
                        End If

                    End If
                Case 2
                    If ValidarDatos() Then

                        hogarRow.tipovivienda = cmbTipoVivienda.SelectedItem
                        hogarRow.superficie = nudSuperficie.Value
                        hogarRow.urbana = chNucleoUrbano.Checked
                        hogarRow.añoconstrucion = txtAnoConstruccion.Text
                        hogarRow.uso = cmbUso.SelectedItem
                        hogarRow.poblacion = txtPoblacion.Text
                        hogarRow.alarma = chAlarma.Checked
                        hogarRow.rejas = chRejas.Checked
                        hogarRow.puertablindada = chPuertaBlind.Checked
                        hogarRow.tiposeguro = cmbTipoHogar.SelectedItem
                        hogarRow.numpol = txtNumeroPoliza.Text
                        hogarRow.prima = nudPrima.Value
                        hogarRow.fechavec = dtpFechaVencimiento.Value
                        hogarRow.formapago = cmbFormaPago.SelectedItem
                        hogarRow.comision = nudComisión.Value
                        hogarRow.competencia = chbCompetencia.Checked
                        hogarRow.observaciones = txtObservaciones.Text
                        hogarRow.añoreforma = txtAnoReforma.Text
                        hogarRow.compañia = txtCompania.Text
                        hogarRow.estado = cmbEstado.SelectedItem
                        hogarRow.cobertura = txtCobertura.Text
                        hogarRow.fechacontratacion = dtpFechaContratacion.Value





                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.hogar)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.Tag IsNot Nothing Then
                                Me.Close()
                            End If
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de hogar registrada..."
                            End If
                            Limpiar()
                        End If

                    End If

                Case 11

                    If ValidarDatos() Then


                        pymecomercioRow.actividad = txtActividad.Text
                        pymecomercioRow.continente = txtContinente.Text
                        pymecomercioRow.moviliario = txtMoviliario.Text
                        pymecomercioRow.vehreposo = txtVehiculoRep.Text
                        pymecomercioRow.existencias = txtExistencias.Text
                        pymecomercioRow.cp = txtCp.Text
                        pymecomercioRow.superficie = nudSuperficiePyme.Value
                        pymecomercioRow.tipoestructura = txtEstructuras.Text
                        pymecomercioRow.medioscontraincendios = txtIncendios.Text
                        pymecomercioRow.facturacion = nudFacturacion.Value
                        pymecomercioRow.fechacontratacion = txtNumeroPoliza.Text
                        pymecomercioRow.prima = nudPrima.Value
                        pymecomercioRow.fechavec = dtpFechaVencimiento.Value
                        pymecomercioRow.formapago = cmbFormaPago.SelectedItem
                        pymecomercioRow.comision = nudComisión.Value
                        pymecomercioRow.competencia = chbCompetencia.Checked
                        pymecomercioRow.observaciones = txtObservaciones.Text
                        pymecomercioRow.compañia = txtCompania.Text
                        pymecomercioRow.estado = cmbEstado.SelectedItem
                        pymecomercioRow.cobertura = txtCobertura.Text
                        pymecomercioRow.fechacontratacion = dtpFechaContratacion.Value


                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.pymecomercio)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.Tag IsNot Nothing Then
                                Me.Close()
                            End If
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de P.Y.M.E. registrada..."
                            End If
                            Limpiar()
                        End If

                    End If

                Case 12

                    If ValidarDatos() Then

                        pymecomercioRow.actividad = txtActividad.Text
                        pymecomercioRow.continente = txtContinente.Text
                        pymecomercioRow.moviliario = txtMoviliario.Text
                        pymecomercioRow.vehreposo = txtVehiculoRep.Text
                        pymecomercioRow.existencias = txtExistencias.Text
                        pymecomercioRow.cp = txtCp.Text
                        pymecomercioRow.superficie = nudSuperficiePyme.Value
                        pymecomercioRow.tipoestructura = txtEstructuras.Text
                        pymecomercioRow.medioscontraincendios = txtIncendios.Text
                        pymecomercioRow.facturacion = nudFacturacion.Value
                        pymecomercioRow.fechacontratacion = txtNumeroPoliza.Text
                        pymecomercioRow.prima = nudPrima.Value
                        pymecomercioRow.fechavec = dtpFechaVencimiento.Value
                        pymecomercioRow.formapago = cmbFormaPago.SelectedItem
                        pymecomercioRow.comision = nudComisión.Value
                        pymecomercioRow.competencia = chbCompetencia.Checked
                        pymecomercioRow.observaciones = txtObservaciones.Text
                        pymecomercioRow.compañia = txtCompania.Text
                        pymecomercioRow.estado = cmbEstado.SelectedItem
                        pymecomercioRow.cobertura = txtCobertura.Text
                        pymecomercioRow.fechacontratacion = dtpFechaContratacion.Value
                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.pymecomercio)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.Tag IsNot Nothing Then
                                Me.Close()
                            End If
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza de comercio registrada.."
                            End If
                            Limpiar()
                        End If

                    End If

                Case Else
                    If ValidarDatos() Then

                        polizaRow.numpol = txtNumeroPoliza.Text
                        polizaRow.prima = nudPrima.Value
                        polizaRow.fechavec = dtpFechaVencimiento.Value
                        polizaRow.formapago = cmbFormaPago.SelectedItem
                        polizaRow.comision = nudComisión.Value
                        polizaRow.competencia = chbCompetencia.Checked
                        polizaRow.observaciones = txtObservaciones.Text
                        polizaRow.compañia = txtCompania.Text
                        polizaRow.estado = cmbEstado.SelectedItem
                        polizaRow.cobertura = txtCobertura.Text
                        polizaRow.fechacontratacion = dtpFechaContratacion.Value


                        Dim sError As String = ""

                        sError = GuardarTabla(dsCaser.poliza)

                        If sError <> "" Then
                            MessageBox.Show(sError, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            If Me.Tag IsNot Nothing Then
                                Me.Close()
                            End If
                            If Me.MdiParent IsNot Nothing Then
                                CType(Me.MdiParent, Principal).Estado = "Póliza registrada.."
                            End If
                            Limpiar()
                        End If

                    End If

                    If Me.MdiParent Is Nothing Then
                        Me.Close()
                    End If


            End Select
        End If
    End Sub
End Class